home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Font Smoothing.xpl < prev    next >
Text File  |  2001-04-28  |  2KB  |  72 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Interface\Effects"
  5. "NAME"="Font Smoothing/Clear Type"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Do not use font smoothing"
  9. "TEXT 2"="Enable font smoothing"
  10. "TEXT 3"="Enable Clear Type (Windows XP only!)"
  11. "DESCRIPTION 1"="When this option is enabled, the edges of large TrueType fints become anti-aliased. This means that there are no jagged edges to them."
  12. "DESCRIPTION 2"="If you are using Windows XP, you can also enable Clear Type, a "new" Font Smoothing method that works even better than the "normal" Font Smoothing."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to Steve Day [steve@steveday.net] for the "font smoothing on NT" bug notice!"
  17.  
  18. sP1="HKCU\Control Panel\Desktop\FontSmoothing"     'STR!
  19. sP2="HKCU\Control Panel\Desktop\FontSmoothingType" 'DW!
  20. Sub Plugin_Initialize 
  21.  'String
  22.  i=RegReadValue(sP1)
  23.  
  24.  if GetWinVer=6 then 'XP
  25.     if i=0 then SetUIElement 1,true
  26.     if i=1 then SetUIElement 2,true
  27.     if i=2 then SetUIElement 3,true
  28.  else 'any other OS
  29.     if i=0 then SetUIElement 1,true
  30.     if i=1 or i=2  then SetUIElement 2,true
  31.  end if
  32.  
  33. End Sub
  34.  
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  if GetUIElement(1)=true then
  37.     vVal=0
  38.  
  39.  elseif GetUIElement(2)=true then
  40.     if GetWinVer=2 then 'NT
  41.        vVal=2
  42.     else 'any other OS
  43.        vVal=1
  44.     end if
  45.  
  46.  elseif GetUIElement(3)=true then
  47.     'on XP only!
  48.     if GetWinVer=6 then
  49.        vVal=2
  50.     else
  51.        vVal=-1
  52.        Call MsgError("Clear Type can be enabled on Windows XP only, please make a different selection!") 
  53.     end if
  54.  end if
  55.  
  56.  
  57.  if vVal>-1 then
  58.     Call RegWriteValue(sP1,vVal,1)
  59.     Call RegWriteValue(sP2,vVal,2)
  60.     Call IniWriteValue("WIN.INI","TrueType","FontSmoothing",vVal)
  61.     Call Restart()
  62.  end if
  63.  
  64. End Sub
  65.  
  66.  
  67. Sub Plugin_Terminate 
  68. End Sub
  69.  
  70.  
  71.  
  72.